home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / MotorWord_d1.adf / INSTALL-MaxonWORD-HD < prev    next >
Text File  |  1993-08-20  |  12KB  |  405 lines
  1. ; $VER: MaxonWORD Install Version 1.10 (19.08.93)
  2. ; Script zum Installieren von MaxonWORD
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\n MaxonWORD\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft nahezu vollständig "
  10.      "automatisch ab.\n\n"
  11.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n\n"
  12.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  13. (set #askdir-help
  14. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  15.      "Sie gerne MaxonWORD installieren möchten. Danach klicken Sie "
  16.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  17.      "Namen des Verzeichnisses an (z.B. WORK:MWORD). Dann drücken Sie "
  18.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  19.      "Beschreibung der Schalter:\n\n"
  20.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  21.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  22.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  23.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  24.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  25.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  26.      "befindete sich ein Schieber, mit dem man sich durch eine "
  27.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  28.      "alle Einträge ausreicht.\n\n"
  29.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  30.      "einer Schublade geklickt wird.\n\n"
  31.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  32.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  33.      "wurde.)\n\n"
  34.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  35.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  36.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  37.      "anzusehen.\n\n"
  38.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  39.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  40.      "angelegt, das Sie soeben betrachten.\n\n"
  41.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  42.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  43.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  44.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  45.      "vorgenommen.\n\n"
  46.      "\"Help...\" zeigt diesen Text."))
  47. (set #help-startup
  48. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  49.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  50.      "bereits beim Systemstart ausführen.\n\n"
  51.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  52.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  53.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  54.      "den Schalter \"Skip This Part\"\n\n"
  55.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  56. (set #help-delete
  57. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  58.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  59.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  60.      "\"Assigns\" gelöscht.\n\n"
  61.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  62.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  63.      "Installationsverzeichnis erhalten.\n\n"
  64.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  65. (set #startup-help
  66. (cat "Erklärung der Schalter:\n\n"
  67.      "\"Install for Real\"\n"
  68.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  69.      "\"Pretend to Install\"\n"
  70.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  71.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  72.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  73.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  74.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  75.      "Liste über alle durchgeführten Aktionen.\n\n"
  76.      "\"Printer\"\n"
  77.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  78.      "ausgegeben.\n\n"
  79.      "\"Log File\"\n"
  80.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  81.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  82.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  83.      "\"None\"\n"
  84.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  85. (set #no-inst
  86. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  87.      "nötigsten MaxonWORD-Dateien zu kopieren\n\n"
  88.      "!!! Die Installation wird abgebrochen !!!"))
  89.  
  90. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  91.  
  92. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonWORD\nkopiert werden?\n\n"))
  93. (set #WORDFONTS    (cat "Die Fontdaten werden entpackt!\n\n"))
  94. (set #WORDDOKU    (cat "\nKopiere die Demo-Dokumente!\n\n"))
  95. (set #WORDDEKOMP (cat "\nDekomprimiere das Hauptprogramm!\n"))
  96.  
  97. (set @WORDSIZE    650000)
  98. (set @FONTSIZE    700000)
  99. (set @CONFSIZE 20000)
  100.  
  101. (set @abort-button "Abbruch")
  102. (set @language "Deutsch")
  103.  
  104. (Procedure Inst_NormFiles
  105. ;    (if (< (getdiskspace @Dest) @Size)
  106. ;        (abort #no-inst))
  107.  
  108.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  109.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  110. )
  111.  
  112. (Procedure Inst_PatternFiles
  113. ;    (if (< (getdiskspace @Dest) @Size)
  114. ;        (abort #no-inst))
  115.  
  116.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  117.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  118. )
  119.  
  120. (Procedure Inst_LhaFiles
  121.     (set @TMP (tackon "RAM:" @FName.lha))
  122.     (set @Dest_File (tackon @default-dest @Dest))
  123.     (if                                          ; Verzeichnis erzeugen
  124.         (= (exists @Dest_File) 0)
  125.         (makedir (@Dest_File)(infos))
  126.     )
  127.  
  128.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  129.     (working @Working @Dest)
  130.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  131.     (delete @TMP)
  132. )
  133.  
  134. (Procedure Inst_LhaFilesnew
  135.     (set @TMP (tackon "RAM:" @FName.lha))
  136.     (set @Dest_File @default-dest)
  137.  
  138.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  139.     (working @Working @Dest)
  140.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  141.     (delete @TMP)
  142. )
  143.  
  144.  
  145. (complete 0)
  146.  
  147. (message #introduction)
  148. (welcome)
  149.  
  150. (set @default-dest                           ;Verzeichnis aussuchen 
  151.     (askdir
  152.         (prompt #COPVERZ)
  153.         (help    #askdir-help)
  154.         (default "WORK:MWORD")
  155.     )
  156. )
  157.  
  158. (if                                          ; Verzeichnis erzeugen
  159.     (= (exists @default-dest) 0)
  160.     (makedir @default-dest)
  161. )
  162.  
  163.  
  164.     (askdisk
  165.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk1\" ein!")
  166.         (help #askdir-help)
  167.         (dest "MaxonWORD_Disk1")
  168.     )
  169.  
  170.  
  171. (if
  172.    (= (exists "C:MuchMore") 0)
  173.     (copyfiles                                        ; MuchMore kopieren
  174.         (prompt "Einige Installationsdateien werden kopiert ...")
  175.         (help @copyfiles-help)
  176.         (source "MaxonWORD_Disk1:C")
  177.         (dest "C:")
  178.        (choices "MuchMore")
  179.     )
  180. )
  181.  
  182. (copyfiles                                            ; LHX kopieren
  183.     (prompt #COPYRAM)
  184.     (help @copyfiles-help)
  185.     (source "MaxonWORD_Disk1:C")
  186.     (dest "RAM:")
  187.    (choices "Lhx")
  188. )
  189.  
  190. (if(= 0 (exists "RAM:Lhx"))
  191.     (abort #ERRORRAM))
  192.  
  193. (complete 5)
  194.  
  195. (
  196.     (set @Working #WORDDEKOMP)
  197.     (set @Dest @default-dest)
  198.     (set @Source "MaxonWORD_Disk1:")
  199.     (set @FName.lha ("MWORD.LHA"))
  200.     (set @Size @WORDSIZE)
  201.     (Inst_LhaFilesnew)
  202. )
  203.  
  204. (    (set @Working #WORDDEKOMP)
  205.     (set @Dest @default-dest)
  206.     (set @Source "MaxonWORD_Disk1:")
  207.     (set @FName  "MWord.info")
  208.     (set @Size 0)
  209.     (Inst_NormFiles)
  210. )
  211.  
  212. (complete 15)
  213.  
  214.  
  215. (set @Dokument-Dir (tackon @default-dest "Dokumente"))
  216. (set @Grafik-Dir (tackon @default-dest "Grafiken"))
  217.  
  218.     (if                                          ; Verzeichnis erzeugen
  219.         (= (exists @Dokument-Dir) 0)
  220.         (makedir (@Dokument-Dir)(infos))
  221.     )
  222.  
  223.     (if                                          ; Verzeichnis erzeugen
  224.         (= (exists @Grafik-Dir) 0)
  225.         (makedir (@Grafik-Dir)(infos))
  226.     )
  227.  
  228. (    (set @Working #WORDDOKU)
  229.     (set @Dest @Dokument-Dir)
  230.     (set @Source "MaxonWORD_Disk1:Dokumente/")
  231.     (set @FName  "TextDemo.Dok")
  232.     (set @Size 0)
  233.     (Inst_NormFiles)
  234. )
  235.  
  236. (    (set @Working #WORDDOKU)
  237.     (set @Dest @Dokument-Dir)
  238.     (set @Source "MaxonWORD_Disk1:Dokumente/")
  239.     (set @FName  "FontDemo.Dok")
  240.     (set @Size 0)
  241.     (Inst_NormFiles)
  242. )
  243.  
  244. (    (set @Working #WORDDOKU)
  245.     (set @Dest @Grafik-Dir)
  246.     (set @Source "MaxonWORD_Disk1:Grafiken/")
  247.     (set @FName  "Demo.Iff")
  248.     (set @Size 0)
  249.     (Inst_NormFiles)
  250. )
  251.  
  252. (complete 40)
  253.  
  254. (set @CONF-Dir "S:MWord.SES")
  255.     
  256. (if (= (exists @CONF-Dir) 1)
  257.     (
  258.         (delete @CONF-Dir)
  259.     )
  260. )
  261.  
  262. (if (< (/ (getversion) 65536) 35)
  263.     (
  264.  
  265.         (
  266.             (set @Source "MaxonWORD_Disk1:S")
  267.             (set @Dest "S:")
  268.            (set @Pattern "MW#?")
  269.             (set @Size @CONFSIZE)
  270.             (Inst_PatternFiles)
  271.         )
  272.     
  273.     
  274.         (copylib                                            ; RCT-LIB kopieren
  275.             (prompt "Die MWSUPPORT-LIBRARY wird kopiert ...")
  276.             (help
  277.                 "Die MWSUPPORT-Library beinhaltet den Standard-Filerequester "
  278.               "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  279.               "installiert haben, dann ist hier eine neuere Version.\n\n"
  280.                 @copyfiles-help
  281.             )
  282.             (source "MaxonWORD_Disk1:libs/mwsupport.library")
  283.             (dest "Libs:")
  284.             (confirm)
  285.         )
  286.     
  287.     
  288.         (copylib                                            ; IFFPARSE-LIB kopieren
  289.             (prompt "Die IFFParse-LIBRARY wird kopiert ...")
  290.             (help
  291.                 "Die IFF-Library wird von MaxonWORD benötigt."
  292.               "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  293.               "installiert haben, dann ist hier eine neuere Version.\n\n"
  294.                 @copyfiles-help
  295.             )
  296.             (source "MaxonWORD_Disk1:Libs/iffparse.library")
  297.             (dest "Libs:")
  298.             (confirm)
  299.         )
  300.     )
  301.  
  302.     (
  303.  
  304.         (set @CONF-Dir "S:MWord.DEF")
  305.             
  306.         (if (= (exists @CONF-Dir) 1)
  307.             (
  308.                 (delete @CONF-Dir)
  309.             )
  310.         )
  311.  
  312.         (set @CONF-Dir "S:MWord.CFG")
  313.             
  314.         (if (= (exists @CONF-Dir) 1)
  315.             (
  316.                 (delete @CONF-Dir)
  317.             )
  318.         )
  319.  
  320.         (if                                          ;Verzeichnis erzeugen
  321.             (= (exists "ENVARC:MWORD") 0)
  322.             (makedir ("ENVARC:MWORD"))
  323.         )
  324.  
  325.         (if                                          ;Verzeichnis erzeugen
  326.             (= (exists "ENV:MWORD") 0)
  327.             (makedir ("ENV:MWORD"))
  328.         )
  329.  
  330.  
  331.         (
  332.             (set @Source "MaxonWORD_Disk1:S")
  333.             (set @Dest "ENV:MWORD")
  334.            (set @Pattern "MW#?")
  335.             (set @Size @CONFSIZE)
  336.             (Inst_PatternFiles)
  337.         )
  338.         (
  339.             (set @Source "MaxonWORD_Disk1:S")
  340.             (set @Dest "ENVARC:MWORD")
  341.            (set @Pattern "MW#?")
  342.             (set @Size @CONFSIZE)
  343.             (Inst_PatternFiles)
  344.         )
  345.  
  346.     )
  347. )
  348.  
  349. (complete 50)
  350.  
  351. (askdisk
  352.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk2\" ein!")
  353.     (help "Diese Diskette enthält die Postscript-Fonts.")
  354.     (dest "MaxonWORD_Disk2")
  355. )
  356.  
  357. (set @Font-Dir (tackon @default-dest "PS-Fonts"))
  358.  
  359.  
  360. (    (set @Working #WORDFONTS)
  361.     (set @Dest ("PS-Fonts"))
  362.     (set @Source "MaxonWORD_Disk2:")
  363.     (set @FName.lha ("PSFONTS.LHA"))
  364.     (set @Size @FONTSIZE)
  365.     (Inst_LhaFiles)
  366. )
  367.  
  368.  
  369. (complete 90)
  370.  
  371. ; ------- STARTUP ÄNDERN
  372.  
  373. (set command1 (cat "ASSIGN PS-Fonts: " @Font-Dir))
  374.  
  375. (set command1.txt
  376.     (cat 
  377.          "\n\n\nUm mit dem MaxonWORD richtig arbeiten zu "
  378.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  379.          command1
  380.     )
  381. )
  382.  
  383. (startup "MaxonWORD.app"
  384.     (prompt command1.txt)
  385.     (help #help-startup)
  386.     (command command1)
  387. )
  388.  
  389. (makeassign "PS-Fonts")
  390. (makeassign "PS-Fonts" @Font-Dir)
  391.  
  392. (complete 100)
  393.  
  394. ; ------- FERTIG
  395.  
  396. (message (cat 
  397.     "Installation der Textverarbeitung MaxonWORD 1.0 beendet.\n"
  398.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  399.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  400.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  401.    "MaxonWORD.\n\nViel Erfolg!")
  402. )
  403.  
  404.  
  405.